www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Ku_type/Tie_re.asp
<%
set rshf=server.createobject("adodb.recordset")
sqlhf="select * from Quan_hf where htid="&id&" order by addtime desc"
rshf.open sqlhf,conn,1,1
%>
<%
set rsmuu=server.createobject("adodb.recordset")
sqlmuu="select * from [ku_user] where username='"&rshf("username")&"'"
rsmuu.open sqlmuu,conn,1,1
dim a,x
x=1
Set a=New PageList
listLimit=5
'模拟分页一页显示分页数
pageLists=5
'设置分页参数
If rshf.BOF or rshf.EOF Then
%>
<table align=center width="700">
<tr bgcolor="#C6E3F4">
<td height="24" colspan="5" align="center" bgcolor="#FFFFFF">
<font color="#FF0000">暂无回帖！</font></td>
</tr></table>
<%
else
'分页循环开始
totalList= rshf.recordcount
a.InitPara=array(totalList,listLimit,pageLists)
a.PageList()
rshf.pagesize=listLimit
page = request("page")
If page="" Then
page=1
End If
rshf.absolutepage = page
for i=1 to rshf.pagesize
%><div align="center">
<table border="0" width="730" height="245" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2">
<tr>
<td height="180" width="147" bgcolor="#ddbb88" valign="top">
<table border="0" width="100%" id="table1" height="242" cellpadding="0" cellspacing="0">
<tr>
<td height="123">
<p align="center">
<%if len(rsmuu("UserPhoto"))>10 then%>
<img border="0" src="<%=rsmuu("UserPhoto")%>" width="100" height="110" alt="点击查看【<%=rshf("username")%>】详细资料">
<%else%>
<img border="0" src="Img/face/notx100-100.gif" width="100" height="110" alt="会员【<%=rshf("username")%>】头像">
<%end if%>
</td>
</tr>
<tr>
<td height="20">
<p align="center"><b>会员</b>：
<font color="#FF0000"><%=rshf("username")%></font>
</p></td>
</tr>
<% if len(rsmuu("qq"))>4 then%>
<tr>
<td height="20">
<p align="center">
<a href="tencent://message/?uin=<%=rsmuu("QQ")%>&Site=<%=Ku_name%>&Menu=yes" ><img border="0" SRC="http://wpa.qq.com/pa?p=1:<%=rsmuu("QQ")%>:10" alt="点击这里给我发消息"></a>
</td>
</tr>
<% end if%>
<% if rsmuu("email")<>0 then%>
<tr>
<td height="20">
<p align="center"><b>邮箱</b>：<img border="0" src="pkxx-Img/Email.gif" width="14" height="14">
<a href="mailto:<%=rsmuu("email")%>" target="_blank">点击发送邮件</a>
</td>
</tr>
<% end if%>
<% if rsmuu("tel")<>0 then%>
<tr>
<td height="20">
<p align="center"><b>电话</b>：<%=rsmuu("tel")%><br>
<font color="#999999">查询该<a href="../mobile-chk.asp?mobile=<%=rsmuu("tel")%>" target="_blank"><img border="0" src="pkxx-Img/ph.gif" width="16" height="14"></a>或<a href="../tel-chk.asp?tel=<%=rsmuu("tel")%>" target="_blank"><img border="0" src="pkxx-Img/dh.gif" width="14" height="14"></a>归属地</font>
</td>
</tr>
<% end if%>
<% if len(rsmuu("http"))>8 then%>
<tr>
<td height="20"><p align="center"><b>主页</b>：<img border="0" src="pkxx-Img/http.gif" width="14" height="14">
<a href="<%=rsmuu("http")%>" target="_blank">点击浏览主页</a></td>
</tr>
<% end if%>
<tr>
<td height="20">
<p align="center"><b>时间</b>：<img border="0" src="pkxx-Img/tj.gif" width="14" height="14">
<%=DateTimeFormat(rshf("addtime"),8)%></td>
</tr>
<% if rsmuu("loginip")<>"" then%>
<tr>
<td height="20">
<p align="center"><b>IP</b>：<img border="0" src="pkxx-Img/ip.gif">
<a href="../ip.asp?ip=<%=rsmuu("loginip")%>" target="_blank" title="IP地址归属地查询">
<font color="#FF0000"><%=rsmuu("loginip")%></font></a></p>
</td>
</tr>
<% end if%>
</table>
</td>
<td height="180" width="580" bgcolor="#ddbbaa" valign="top">
<div align="center">
<table border="0" width="100%" id="table2" cellpadding="0" cellspacing="0" height="180">
<tr>
<td height="3" width="100%" colspan="2"></td>
</tr>
<tr>
<td height="25" bgcolor="#F2F2F2" width="510"> <b><font color="#FF0000"><%=rshf("title")%></font></b></td>
<td height="25" bgcolor="#F2F2F2" width="58"><b><font color="#FF0000" size="5"><%=rshf.pagesize*(page-1)+i%></font></b>楼</td>
</tr>
<tr>
<td height="5" width="100%" colspan="2"></td>
</tr>
<tr>
<td height="130" valign="top" width="100%" colspan="2">
<table><tr>
<td align="left" width="500" height="150">
<%=rshf("content")%>
</td>
<!--帖间广告位 开始-->
<td align="top" bgcolor="#FF99aa" height="150">
<% if rshf.pagesize*(page-1)+i mod 2 =0 then%>
<% Call Ku_AD(37) %>
<%else%>
<% Call Ku_AD(38) %>
<%end if%>
</td>
<!--帖间广告位 结束-->
</tr></table>
</td>
</tr>
<tr>
<td height="20" width="568" colspan="2">
<p align="right">编辑此贴 删除此贴</td>
</tr>
</table>
<!--【圈子话题】页面-【回复贴间】广告位-->
<hr>
<% Call Ku_AD(33) %>
<!--【圈子话题】页面-【回复贴间】广告位-->
<table>
<tr>
<td height="20" width="540" colspan="2" align="left"> </td>
<td height="20" align="right"><a href="#TOP" title="返回顶部"><img border="0" src="pkxx-Img/locktop.gif"></a></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<hr>
</div>
<%
rshf.movenext
if rshf.eof then exit for
next
end if
%>
<table align=center width="700">
<tr bgcolor="#C6E3F4">
<td height="24" colspan="5" align="center" bgcolor="#FFFFFF">
<font color="#FF0000">. <%=a.PageInfo%> .</font></td>
</tr></table>